source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXKMASC1.m@ 1578

Last change on this file since 1578 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 529 bytes
RevLine 
[613]1PXKMASC1 ;ISL/JVS - SECOND ROUTINE ;5/21/96 13:20
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
3 ;
4OUT ;
5 N SUB,REF
6 K ^TMP("PXKMASC1",$J)
7 S SUB=1
8 F REF="PXKAV","PXKBV","PXSDOE","VSIT","PXCA" D
9 .Q:'$D(@REF)
10 .F S REF=$Q(@REF) Q:REF="" D K @REF
11 ..S ^TMP("PXKMASC1",$J,SUB,1)=REF
12 ..S ^TMP("PXKMASC1",$J,SUB,2)=@REF
13 ..S SUB=SUB+1
14 Q
15IN ;
16 N SUB,RESTOR
17 S SUB=0
18 F S SUB=$O(^TMP("PXKMASC1",$J,SUB)) Q:SUB="" D
19 .S RESTOR=$G(^TMP("PXKMASC1",$J,SUB,1))
20 .S @RESTOR=$G(^TMP("PXKMASC1",$J,SUB,2))
21 K ^TMP("PXKMASC1",$J)
22 Q
Note: See TracBrowser for help on using the repository browser.