source: WorldVistAEHR/trunk/r/CONSULT_REQUEST_TRACKING-GMRC-GMRS-GMRT/GMRCILKP.m@ 1261

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

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1GMRCILKP ;SLC/JFR - LOOK UP IFC BY REMOTE CONS #; 1/2/02 14:34
2 ;;3.0;CONSULT/REQUEST TRACKING;**22**;DEC 27, 1997
3EN ; start here
4 N DIR,DIRUT,DIROUT,DTOUT,DUOUT,X,Y,GMRCSIT,GMRCO,DFN,GMRCREMC
5 N VALMBCK,VALMCNT,GMRCA,GMRCDIF,GMRCDVL,GMRCLOC,GMRCWARD,GMRCX,GMRCDISP
6 S DIR(0)="PO^4:EMQ"
7 S DIR("S")="I $$STA^XUAF4(+Y)=+$$STA^XUAF4(+Y)"
8 S DIR("A")="Choose the facility to which the remote entry belongs"
9 D ^DIR
10 I $D(DIRUT) Q
11 S GMRCSIT=+Y
12 K X,Y,DIR
13 S DIR(0)="NO^1:9999999"
14 S DIR("A")="Select the Remote Consult Entry #"
15 D ^DIR
16 I $D(DIRUT) Q
17 S GMRCREMC=Y
18 S GMRCO=$O(^GMR(123,"AIFC",GMRCSIT,GMRCREMC,0))
19 I '$G(GMRCO) D G EN
20 . W $C(7),!!
21 . W "No Consult on file for the selected site with that remote number!"
22 . W !!
23 . K DIR
24 . S DIR(0)="E" D ^DIR
25 . W !,"Select again"
26 S DFN=$P(^GMR(123,GMRCO,0),U,2)
27 K DIR
28 S DIR(0)="S^B:brief;D:detailed"
29 S DIR("A")="Display type"
30 S DIR("B")="B"
31 D ^DIR
32 I $D(DTOUT)!($D(DUOUT)) Q
33 S GMRCDISP=Y
34 I GMRCDISP="B" D G EN
35 . N GMRCST,GMRCSS,GMRCPNM,GMRCSN
36 . D DEM^GMRCU
37 . S GMRCSN=$P(GMRCSN,"-",3)
38 . S GMRCPNM=$E(GMRCPNM,1,23)
39 . S GMRCST=$$GET1^DIQ(100.01,$P(^GMR(123,GMRCO,0),U,12),.1)
40 . S GMRCSS=$E($$SVC^GMRCAU(GMRCO),1,22)
41 . W !!,"Local cslt# To Service",?37,"Status Patient",?74,"SSN"
42 . W !,$$REPEAT^XLFSTR("-",79)
43 . W !,GMRCO,?14,GMRCSS,?39,GMRCST,?46,GMRCPNM,?74,GMRCSN,!!
44 . K DIR S DIR(0)="E" D ^DIR
45 . W !,"Select again"
46 . D ^GMRCREXT
47 I GMRCDISP="D" D G EN
48 . D DT^GMRCSLM2(GMRCO)
49 . I '$D(^TMP("GMRCR",$J,"DT")) W !,"Error finding details!" Q
50 . M ^TMP("GMRCR",$J,"DTLIST")=^TMP("GMRCR",$J,"DT")
51 . S VALMCNT=$O(^TMP("GMRCR",$J,"DTLIST"," "),-1)
52 . D EN^VALM("GMRC DETAILED DISPLAY")
53 . D ^GMRCREXT
54 Q
Note: See TracBrowser for help on using the repository browser.