iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

testing

This commit is contained in:
sam 2008-06-21 23:19:38 +00:00
parent 6e246fc94f
commit 79bdb2872d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/GPLCCR.m
View File

@ -4,7 +4,7 @@ GPLCCR ; CCDCCR/GPL - CCR MAIN PROCESSING; 6/6/08
; EXPORT A CCR ; EXPORT A CCR
; ;
EXPORT ; EXPORT ENTRY POINT FOR CCR EXPORT ; EXPORT ENTRY POINT FOR CCR
; would like to call fileman routine here to select a patient ; Select a patient.
S DIC=2,DIC(0)="AEMQ" D ^DIC S DIC=2,DIC(0)="AEMQ" D ^DIC
S DFN=$P(Y,U,1) ; SET THE PATIENT S DFN=$P(Y,U,1) ; SET THE PATIENT
N CCRGLO N CCRGLO